home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ WinXP Find Files Options 1.xpl < prev    next >
Text File  |  2002-02-03  |  2KB  |  80 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="Appearance\System\Find Files Dialog"
  5. "NAME"="Find Files Dialog Options"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="000001"
  9. "TEXT 1"="Activate "Search hidden files" option"
  10. "TEXT 2"="Activate "Search system folders" option"
  11. "TEXT 3"="Activate "Search backup sets" option"
  12. "TEXT 4"="Activate "Search inside subfolders" option"
  13. "TEXT 5"="Activate "Search is case sensitive" option"
  14. "DESCRIPTION 1"="To change these advanced options inside the Find -> Files menu, you need to go through a lot of dialogs."
  15. "DESCRIPTION 2"="This plug-in allows you to change the options directly."
  16. "AUTHOR"="Xteq Systems"
  17. "CONTACTURL"="http://www.xteq.com"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "COMMENT 1"=" "
  20.  
  21.  
  22. 'Declaration of some constants
  23. sP="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\"
  24. sV1=sP & "SearchHidden"
  25. sV2=sP & "SearchSystemDirs"
  26. sV3=sP & "SearchSlowFiles"
  27. sV4=sP & "IncludeSubFolders"
  28. sV5=sP & "CaseSensitive"
  29.  
  30.  
  31.  
  32. 'Called when the Plugin is started
  33. SUB Plugin_Initialize 
  34.  i=RegReadValue(sV1) 'DW
  35.  If i=1 then SetUIElement 1,true
  36.  
  37.  i=RegReadValue(sV2) 'DW
  38.  If i=1 then SetUIElement 2,true
  39.  
  40.  i=RegReadValue(sV3) 'DW
  41.  If i=1 then SetUIElement 3,true
  42.  
  43.  i=RegReadValue(sV4) 'DW
  44.  If i=1 then SetUIElement 4,true
  45.  
  46.  i=RegReadValue(sV5) 'DW
  47.  If i=1 then SetUIElement 5,true
  48. END SUB
  49.  
  50. 'Called when the Plugin should validate the Data the user has entered
  51. SUB Plugin_CheckData(ElementIndex)
  52. END SUB
  53.  
  54. 'Called when the Plugin should apply the changes
  55. SUB Plugin_Apply(ElementIndex,ElementSubIndex) 
  56.  Call WriteIt(1,sV1)
  57.  Call WriteIt(2,sV2)
  58.  Call WriteIt(3,sV3)
  59.  Call WriteIt(4,sV4)
  60.  Call WriteIt(5,sV5)
  61.  
  62.  Call Logoff
  63. END SUB
  64.  
  65. Sub WriteIt(ITM,PATH)
  66.   b=GetUIElement(ITM)
  67.   if b=true then
  68.     Call RegWriteValue(PATH,1,2)
  69.   else
  70.     Call RegWriteValue(PATH,0,2)
  71.   end if
  72. End Sub
  73.  
  74.  
  75.  
  76.  
  77. 'Called when the Plugin is about to be removed from memory
  78. SUB Plugin_Terminate
  79. END SUB
  80.